home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Ink Effects.dir / Scripts_21_Setup Try All Inks.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  484 b   |  18 lines
  1. on enterFrame
  2.   global gObjectH, gObjectV, gCurrentInkPosition, gCurrentInk
  3.   puppetSprite(6, 1)
  4.   puppetSprite(7, 1)
  5.   set the moveableSprite of sprite 7 to 1
  6.   puppetSprite(8, 1)
  7.   set the visible of sprite 8 to 0
  8.   set the moveableSprite of sprite 8 to 1
  9.   repeat with N = 17 to 21
  10.     puppetSprite(N, 1)
  11.   end repeat
  12.   puppetSprite(34, 1)
  13.   set gObjectH to the locH of sprite 7
  14.   set gObjectV to the locV of sprite 7
  15.   set gCurrentInkPosition to 1
  16.   set gCurrentInk to "Copy"
  17. end
  18.